setdisplay(320,200,32,1):paper(0xFFFFFF):ink(0x000000):pen(0x000000):cls
screenopen(1,320,200,160,100,160,100,0):paper(0x77FFFF):ink(0x000000):pen(0x000000):cls
 ink(0xFFFFFF):fillcircle(160,100,100):locate(15,8):prints("screen 1")
screenopen(2,320,200,0,100,160,100,0):paper(0xFF77FF):ink(0x000000):pen(0x000000):cls
 ink(0xFFFFFF):fillcircle(160,100,100):locate(15,8):prints("screen 2")
screenopen(3,320,200,0,0,160,100,0):paper(0xFFFF77):ink(0x000000):pen(0x000000):cls
 ink(0xFFFFFF):fillcircle(160,100,100):locate(15,8):prints("screen 3")
 paper(0xDDDDDD)
while key(27)=0
   b=int(rnd(4)):screen(b):screenoffset(rnd(320),rnd(200))
   locate(16,9):prints(str$(screenoffsetx)+"   ")
   waitvbl:wait(250)
 wend

